home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / sort2.zip / REV.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  182b  |  6 lines
  1. program rev;
  2. { reverses each line of input }
  3. var s:string; i:integer;
  4. begin while not eof do begin
  5.    readln(s); for i:=length(s) downto 1 do write(s[i]);
  6.    writeln; end; end.